home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
pswd174.zip
/
RSB2PSWD.MRG
< prev
Wrap
Text File
|
1992-05-16
|
578b
|
16 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
* RBBSSUB2.BAS: Date 3-5-1992 Size 157770 bytes
* ------------[ Created 05-16-1992 22:55:30 ]------------
* REPLACING old line(s) by new
675 ZOutTxt$ = "Enter Password"
ZHidden = ZTrue
CALL PopCmdStack
IF ZSubParm < 0 THEN _
ZPswdFailed = ZTrue : _
EXIT SUB
ZHidden = ZFalse
ZWasZ$ = ZUserIn$
* ------[ first line different ]------
ZOldPassword$ = ZUserIn$ ' PSWD174